﻿<!--#include file="mymin.asp"-->
<title>友链审核</title></head><body><div class='main400'>
<%
dim Rs,Sql

set Rs=Server.CreateObject("ADODB.Recordset")
Sql="select * from 74hu_link Where Active=1 and del=0 order by HU_time desc"
rs.open Sql,myconn,1,1
If Not rs.eof	Then
	Dim PageSize,i,Count,page,pagecount
	PageSize=15
	Count=rs.recordcount
	page=getN("page",1)
	if page<1 then page=1
	pagecount=(count+pagesize-1)\pagesize
	if page>pagecount then page=pagecount
	rs.move(pagesize*(page-1))
	w "共"&count&"条友链没有审核<br/>"
	For i=1 To PageSize
		If rs.eof Then Exit For
		w ""&i+(page-1)*PageSize&".<a href=""Showlink.asp?sid="&sid&"&amp;class="&rs("classid")&"&amp;id="&rs("id")&""">"&_
			nowml(rs("name"))&"</a>(出"&rs("HU_out")&"/入"&rs("HU_in")&")<br/><a href='"&nowml(rs("URL"))&"'>查看</a>|"&_
			"<a href='Link_pass.asp?sid="&sid&"&amp;act=1&amp;id="&rs("id")&"'>通过</a>|"&_
			"<a href='Edit_link.asp?sid="&sid&"&amp;class="&rs("classid")&"&amp;id="&rs("id")&"'>编辑</a>|"&_
			"<a href='DEL_link.asp?sid="&sid&"&amp;class="&rs("classid")&"&amp;id="&rs("id")&"'>删除</a>"&_
			"<br/>-------------<br/>"
		rs.moveNext
	Next
	w showsPage("mymin_link.asp", "id:"&idd, page, pageCount)&"<br/>"

Else
	w "暂时没有待审友链！<br/>"
end if%>
<a href="Link_class.asp?sid=<%=sid%>">[分类管理]</a><br/>
<a href='mymin_index.asp?sid=<%=sid%>'>[友链后台]</a><%call Last2%>